home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / cdropin2.arc / RCVBL.C next >
Text File  |  1985-10-02  |  1KB  |  60 lines
  1. /* rcvbl.c - receive chars test - Blaise version */
  2. #include "stdio.h"
  3. #include "asynch_1.h"
  4.  
  5. #define CARD  2
  6.  
  7. char combuf[1150] ;
  8. int nerr = 0 ;
  9. FILE *fopen() ;
  10.  
  11. main(argc,argv)
  12.  int argc ;
  13.  char *argv[] ;
  14.  {
  15.     int c , err , n , t , speed ;
  16.     char b ;
  17.     unsigned status ;
  18.     FILE *out ;
  19.  
  20.     if( argc < 3 )
  21.       { printf(" no file name on command line \n");
  22.         exit(5) ;
  23.       }
  24.     out = fopen(argv[1],"wb");
  25.     if( out == NULL )
  26.       { printf(" can't open output file \n") ;
  27.         exit(10) ;
  28.       }
  29.     scanf("%d",&speed) ;
  30.     init_a1(COM2,speed,2,0,2,&status,&status) ;   
  31.     err = open_a1(COM2,1000,100,0,0,combuf) ;    /* set up for RS-232 use */
  32.  
  33.     while( (c = rcv_chr() ) != 'S' )    /* look for 'S' to start */
  34.       { /* putchar(c) ; */ }
  35.     eltime() ;            /* start timing */
  36.     c = rcv_chr() ;
  37.     while( c != 'Q' )        /* stop when 'Q' received */
  38.       { fputc(c,out) ;        /* put each char into a file */
  39.         c = rcv_chr() ;
  40.       }
  41.     t = eltime() ;        /* stop timing */
  42.     printf(" %d Ticks  %8.2f Secs \n",t,( (float) t)/18.2) ;
  43.  
  44.     fclose(out) ;
  45.     close_a1(COM2) ;
  46.  }
  47.  
  48.  
  49. int rcv_chr()            /* wait for and get next char */
  50.  {
  51.     int c , err , n ;
  52.     char b ;
  53.     unsigned status ;
  54.  
  55.     while( (err=rdch_a1(COM2,&b,&n,&status)) != 0)
  56.       { ; }
  57.     return( (int) b ) ;
  58.  }
  59.  
  60.